import Control.Monad.ST
import Data.Array
import Data.Array.ST


buildPair = 
            do  arr <- newArray ((1,1), (2,2)) 0 :: ST s (STUArray s (Int,Int) Double)
                a <- readArray arr (1,1)
                return a

